home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok50 / fonttooberon / fonttooberondemo.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  49 lines
  1. (*-------------------------------------------------------------------------
  2. :Program.       FontToOberonDemo.mod
  3. :Contents.      Demo for »FontToOberon«
  4. :Author.        Christian Stiens
  5. :Address.       Heustiege 2, W-4710 Lüdinghausen
  6. :Copyright.     PD
  7. :Language.      Oberon
  8. :Translator.    Amiga Oberon V1.17.1 A+L
  9. :History.       V1.0, 26-Feb-91
  10. :Imports.       Coop24
  11. -------------------------------------------------------------------------*)
  12.  
  13. MODULE FontToOberonDemo;
  14.  
  15.   IMPORT
  16.     I : Intuition,
  17.     g : Graphics,
  18.     e : Exec,
  19.     s : SYSTEM,
  20.     Coop24;
  21.  
  22.   VAR
  23.     win : I.WindowPtr;
  24.     nw  : I.NewWindow;
  25.     rp  : g.RastPortPtr;
  26.     mes : I.IntuiMessage;
  27.  
  28.   CONST
  29.     closeWindow  = LONGSET{I.closeWindow};
  30.     normalWindow = LONGSET{0..3,10,12};
  31.  
  32. BEGIN
  33.   nw := I.NewWindow(0,50,640,150,-1,-1,closeWindow,normalWindow,NIL,NIL,
  34.                     s.ADR("FontToOberonDemo"),NIL,NIL,90,40,-1,-1,{0});
  35.   win := I.OpenWindow(nw);
  36.   IF win # NIL THEN
  37.     rp := win.rPort;
  38.     g.SetFont(rp,Coop24.font);
  39.     g.SetAPen(rp,1);
  40.     g.Move(rp,20,30); g.Text(rp,"Dies ist ein Test",17);
  41.     g.Move(rp,20,60); g.Text(rp,"abcdefghijklmnopqrstuvwxyz0123456789",36);
  42.     g.Move(rp,20,90); g.Text(rp,"ABCDEFGHIJKLMNOPQRSTUVWXYZ!§$%&/()=?",36);
  43.     e.WaitPort(win.userPort);
  44.     I.CloseWindow(win);
  45.   END;
  46. END FontToOberonDemo.
  47.  
  48.  
  49.